home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 February: Tool Chest / Dev.CD Feb 95 / Dev.CD Feb 95.toast / Tool Chest / Interfaces / Universal Interfaces 2.0a3 / Universal AIncludes / ToolUtils.a < prev    next >
Encoding:
Text File  |  1994-11-11  |  3.4 KB  |  217 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        ToolUtils.a
  3. ;
  4. ;    Copyright:    © 1984-1994 by Apple Computer, Inc.
  5. ;                All rights reserved.
  6. ;
  7. ;    Version:    Universal Interfaces 2.0a3  ETO #16, MPW prerelease.  Friday, November 11, 1994. 
  8. ;
  9. ;    Bugs?:        If you find a problem with this file, send the file and version
  10. ;                information (from above) and the problem description to:
  11. ;
  12. ;                    Internet:    apple.bugs@applelink.apple.com
  13. ;                    AppleLink:    APPLE.BUGS
  14. ;
  15. ;
  16.  
  17.     IF &TYPE('__TOOLUTILS__') = 'UNDEFINED' THEN
  18. __TOOLUTILS__ SET 1
  19.  
  20.  
  21.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  22.     include 'Types.a'
  23.     ENDIF
  24. ;        include 'ConditionalMacros.a'                                ;
  25.  
  26.     IF &TYPE('__QUICKDRAW__') = 'UNDEFINED' THEN
  27.     include 'Quickdraw.a'
  28.     ENDIF
  29. ;        include 'MixedMode.a'                                        ;
  30. ;        include 'QuickdrawText.a'                                    ;
  31.  
  32.     IF &TYPE('__OSUTILS__') = 'UNDEFINED' THEN
  33.     include 'OSUtils.a'
  34.     ENDIF
  35. ;        include 'Memory.a'                                            ;
  36.  
  37.     IF &TYPE('__TEXTUTILS__') = 'UNDEFINED' THEN
  38.     include 'TextUtils.a'
  39.     ENDIF
  40. ;        include 'Script.a'                                            ;
  41. ;            include 'IntlResources.a'                                ;
  42. ;            include 'Events.a'                                        ;
  43.  
  44.     IF &TYPE('__FIXMATH__') = 'UNDEFINED' THEN
  45.     include 'FixMath.a'
  46.     ENDIF
  47.  
  48. sysPatListID                    EQU        0
  49. iBeamCursor                        EQU        1
  50. crossCursor                        EQU        2
  51. plusCursor                        EQU        3
  52. watchCursor                        EQU        4
  53.  
  54. Int64Bit                 RECORD    0
  55. hiLong                     ds.l    1
  56. loLong                     ds.l    1
  57. sizeof                     EQU    8
  58.                         ENDR
  59.  
  60.     IF GENERATING68K THEN
  61.         _FixRatio:    OPWORD    $A869
  62.     ELSE
  63.         IMPORT    FixRatio
  64.     ENDIF
  65.  
  66.     IF GENERATING68K THEN
  67.         _FixMul:    OPWORD    $A868
  68.     ELSE
  69.         IMPORT    FixMul
  70.     ENDIF
  71.  
  72.     IF GENERATING68K THEN
  73.         _FixRound:    OPWORD    $A86C
  74.     ELSE
  75.         IMPORT    FixRound
  76.     ENDIF
  77.  
  78.     IF GENERATING68K THEN
  79.         _PackBits:    OPWORD    $A8CF
  80.     ELSE
  81.         IMPORT    PackBits
  82.     ENDIF
  83.  
  84.     IF GENERATING68K THEN
  85.         _UnpackBits:    OPWORD    $A8D0
  86.     ELSE
  87.         IMPORT    UnpackBits
  88.     ENDIF
  89.  
  90.     IF GENERATING68K THEN
  91.         _BitTst:    OPWORD    $A85D
  92.     ELSE
  93.         IMPORT    BitTst
  94.     ENDIF
  95.  
  96.     IF GENERATING68K THEN
  97.         _BitSet:    OPWORD    $A85E
  98.     ELSE
  99.         IMPORT    BitSet
  100.     ENDIF
  101.  
  102.     IF GENERATING68K THEN
  103.         _BitClr:    OPWORD    $A85F
  104.     ELSE
  105.         IMPORT    BitClr
  106.     ENDIF
  107.  
  108.     IF GENERATING68K THEN
  109.         _BitAnd:    OPWORD    $A858
  110.     ELSE
  111.         IMPORT    BitAnd
  112.     ENDIF
  113.  
  114.     IF GENERATING68K THEN
  115.         _BitOr:    OPWORD    $A85B
  116.     ELSE
  117.         IMPORT    BitOr
  118.     ENDIF
  119.  
  120.     IF GENERATING68K THEN
  121.         _BitXor:    OPWORD    $A859
  122.     ELSE
  123.         IMPORT    BitXor
  124.     ENDIF
  125.  
  126.     IF GENERATING68K THEN
  127.         _BitNot:    OPWORD    $A85A
  128.     ELSE
  129.         IMPORT    BitNot
  130.     ENDIF
  131.  
  132.     IF GENERATING68K THEN
  133.         _BitShift:    OPWORD    $A85C
  134.     ELSE
  135.         IMPORT    BitShift
  136.     ENDIF
  137.  
  138.     IF GENERATING68K  THEN
  139.     IF GENERATING68K THEN
  140.         _LongMul:    OPWORD    $A867
  141.     ELSE
  142.         IMPORT    LongMul
  143.     ENDIF
  144.  
  145.     ENDIF
  146.     IF OLDROUTINELOCATIONS  THEN
  147.     IF GENERATING68K THEN
  148.         _GetIcon:    OPWORD    $A9BB
  149.     ELSE
  150.         IMPORT    GetIcon
  151.     ENDIF
  152.  
  153.     IF GENERATING68K THEN
  154.         _PlotIcon:    OPWORD    $A94B
  155.     ELSE
  156.         IMPORT    PlotIcon
  157.     ENDIF
  158.  
  159.     ENDIF
  160.     IF GENERATING68K THEN
  161.         _GetPattern:    OPWORD    $A9B8
  162.     ELSE
  163.         IMPORT    GetPattern
  164.     ENDIF
  165.  
  166.     IF GENERATING68K THEN
  167.         _GetCursor:    OPWORD    $A9B9
  168.     ELSE
  169.         IMPORT    GetCursor
  170.     ENDIF
  171.  
  172.     IF GENERATING68K THEN
  173.         _GetPicture:    OPWORD    $A9BC
  174.     ELSE
  175.         IMPORT    GetPicture
  176.     ENDIF
  177.  
  178.     IF GENERATING68K THEN
  179.         _SlopeFromAngle:    OPWORD    $A8BC
  180.     ELSE
  181.         IMPORT    SlopeFromAngle
  182.     ENDIF
  183.  
  184.     IF GENERATING68K THEN
  185.         _AngleFromSlope:    OPWORD    $A8C4
  186.     ELSE
  187.         IMPORT    AngleFromSlope
  188.     ENDIF
  189.  
  190.     IF GENERATING68K THEN
  191.         _DeltaPoint:    OPWORD    $A94F
  192.     ELSE
  193.         IMPORT    DeltaPoint
  194.     ENDIF
  195.  
  196.     IF GENERATING68K THEN
  197.         _ShieldCursor:    OPWORD    $A855
  198.     ELSE
  199.         IMPORT    ShieldCursor
  200.     ENDIF
  201.  
  202.     IF GENERATING68K THEN
  203.         Macro
  204.         _ScreenRes
  205.             dc.w     $225F
  206.             dc.w     $32B8
  207.             dc.w     $0102
  208.             dc.w     $225F
  209.             dc.w     $32B8
  210.             dc.w     $0104
  211.         EndM
  212.     ELSE
  213.         IMPORT    ScreenRes
  214.     ENDIF
  215.  
  216.     ENDIF ; __TOOLUTILS__
  217.